10 POKE53280,11:POKE53281,0:POKE646,13:PRINT"[147]      FORD PREFECT'S HIGHSCOREMAKE
20 [153]"  WRITTEN 1993   PUBLIC DOMAIN SOFTWARE"
30 [153]" OPENSPIEL : CLRCRAZY CARS"
40 :  L$[178]"SCORES,P,R":S$[178]"SCORES,P,W"
50 :  [153]"             OPENANDANDANDANDANDANDANDANDANDAND"
60 :  [153]"CONT             HIGHSCORE:"
70 :  [153]"            OPEN USRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
80 :
90 :  [159] 1,8,2,L$
100 : [161] #1, NO$, NO$
110 :   [129] A [178] 0 [164] 9
120 :       [129] B [178] 0 [164] 19
130 :         [161]#1,BYTE$
140 :         S[178][198](BYTE$)
150 :         [151] 49152[170]A[172]20[170]B,S
160 :         [139] S [179] 32 [167] S[178]S[170]64
170 :         HS$(A)[178]HS$(A)[170][199](S)
180 :       [130] B
190 :   [130] A
200 : [160] 1
210 :
220 : [153]"PRINT #","NAME       ?PUNKTESYS"
230 : [129] L [178] 0 [164] 9
240 :    [153]L,HS$(L)
250 : [130]L
260 :
270 : [153]" CONTERKLAERUNG DER HIGHSCORE :OPEN"
280 : [153]" DER BUCHSTABE VOR DEN PUNKTEN GIBT"
290 : [153]" DAS JEWEILIGE LEVEL AN."
300 : [153]" A BEDEUTET DABEI LEVEL 1, B LEVEL 2 "
310 : [153]" USW. HOECHTS ZULAESSIGER WERT IST Z"
320 : [153]" (= LEVEL 26)."
330 : [153]"CLR DRUECKE EINE TASTE !"
340 : [161] A$: [139] A$[178]"" [167] 340
350 : [153]"ONONONONONONONONON";
360 : [129]L [178] 0 [164] 8
370 :    [153] "                                      "
380 : [130]L
390 : [153]"ONONONONONONONONON";
400 : [153]"OPEN WELCHE NUMMER SOLL GEAENDERT WERDEN ?"
410 : [153]"    DRUECKE 0-9 ODER _ ZUM BEENDEN"
420 : [161] A$: [139]A$[178]""[167]420
430 : [139] A$[178]"_" [167] [128]
440 : A[178][197](A$)
450 : [139] A[179]0 [176] A[177]9 [167] 420
460 :
470 : [153]" CONTMAX. 11 ZEICHEN FUER DEN NAMEN,"
480 : [153]" 1 BUCHSTABE FUER DAS LEVEL UND"
490 : [153]" 8 ZIFFERN FUER DIE SCORE !OPEN"
500 : [153]"  NAMETOTOTOTOTOTOTO?SCORETOTOTOPRINT"
510 : [153]"  ";HS$(A)
520 : [133]"ON";E$
530 : [139] [195](E$)[179]20[167][129]T[178][195](E$)[164]19:E$[178]E$[170][199](32):[130]T
540 : [139] [195](E$)[177]20[167] 520
550 : [153]" SYS    AENDERUNG WIRD GESPEICHERT !!"
560 : [129] L [178] 0 [164] 19
570 :     S [178] [198]([202](E$,L[170]1,1))
580 :     [139] S [177] 64 [167] S [178] S[171]64
590 :     [151] 49152[170]A[172]20[170]L,S
600 : [130] L
610 :
620 : [159] 15,8,15,"S:SCORES":[160]15
630 :
640 : [159] 1,8,2,S$
650 : [152]1,[199](32);[199](19);
660 :    [129] L [178] 0 [164] 199
670 :       S[178][194](49152[170]L)
680 :       [152]1,[199](S);
690 :    [130] L
700 : [160] 1
710 :                           [138]
720 :
730 : [129]D PREFECT'S HIGHSC[176]EMAKER
740 : SPIEL : CRAZY CARS  (W) 1993
750 :
760 : DANNY BUSCH
770 : BIRKENALLEE 18
780 : 65549 LIMBURG (GERMANY)
790 : TEL.: 06431[173]25866